home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / SEND16.HD6 < prev    next >
Text File  |  1993-06-24  |  2KB  |  82 lines
  1. ds_name        db    'MOJ\SEND16',0
  2.  
  3. ;**********************
  4. ; 16色データを一バイトずつvramに送る
  5. ; 絶対番地指定
  6. ;***********************
  7. ;  in       300  1
  8. ;           302 命令データの有る番地
  9. ;**********************
  10. ;命令の書式
  11. ; 
  12. ; [0]    dw   0 or 1  screen_no
  13. ; [2]    dw   書き出し位置 x
  14. ; [4]    dw   書き出し位置 y
  15. ; [6]    dw   横バイト数
  16. ; [8]    dw   縦バイト数
  17. ; [10]   dd   画像データ保存番地
  18. ;********************************
  19. pu_sc_no  equ 0
  20. pu_x1     equ 2
  21. pu_y1     equ 4
  22. pu_bx     equ 6
  23. pu_by     equ 8
  24. pu_ban    equ 10
  25. ;***************************
  26.  
  27.  
  28. be_called:
  29.  
  30.  BOOK
  31.      cmp word ptr 300[esi],1
  32.      je p_16dt  ;データの書き込み
  33.      ret
  34.  
  35. p_16dt:
  36.      mov edx,302[esi]  ;命令データを受け取る
  37.      mov edi,0
  38.       mov ax,[edx]
  39.      cmp ax,0
  40.      je p_dt1
  41.      mov edi,40000h
  42. p_dt1:
  43.      movzx ebx,word ptr pu_y1[edx]
  44.      shl ebx,9
  45.      add edi,ebx                    
  46.      movzx ebx,word ptr pu_x1[edx]
  47.      add edi,ebx                     ; 書き込み先頭番地
  48.      movzx ecx,word ptr pu_bx[edx]
  49.      mov esi,pu_ban[edx]
  50.      push es
  51.      mov ax,120h
  52.      mov es,ax
  53.      cld
  54. p_dt2:
  55.      rep movsb
  56.      add edi,512
  57.      movzx ecx,word ptr pu_bx[edx]
  58.      sub edi,ecx
  59.      dec word ptr pu_by[edx]
  60.      cmp word ptr pu_by[edx],0
  61.      jne p_dt2
  62.      pop es
  63.      ret
  64.  
  65.  
  66. ;-----------------------------------
  67.  
  68. look_me:
  69.      call sub_esi
  70.      dd  0,0
  71.      dw  0,0           ; wind need
  72.      dw  60,24,100,200 ; sz_z sz_y off x  off y
  73.      dw  15,5          ; waku iro  meniro 
  74.      dw  0,0
  75.  
  76. ;------------------------------------------
  77. paint_wd:
  78. re_paint:
  79. mouse_in:
  80.      ret
  81.  
  82.